From: Glenn Morris Date: Sat, 2 Aug 2014 20:22:31 +0000 (-0400) Subject: * test/automated/fns-tests.el (fns-tests-compare-strings): Update test. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~23^2~3423^2~1251 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3865ce6754d3e2af77ee4df8269b325cef312b3b;p=emacs.git * test/automated/fns-tests.el (fns-tests-compare-strings): Update test. --- diff --git a/test/ChangeLog b/test/ChangeLog index 144f1078319..f9b410bf600 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,5 +1,8 @@ 2014-08-02 Glenn Morris + * automated/fns-tests.el (fns-tests-compare-strings): + Update test. (Bug#17903) + * automated/icalendar-tests.el (icalendar--decode-isodatetime): Use more precise TZ specification, as per 2013-08-04. diff --git a/test/automated/fns-tests.el b/test/automated/fns-tests.el index 461995b602e..d3d921f425f 100644 --- a/test/automated/fns-tests.el +++ b/test/automated/fns-tests.el @@ -73,7 +73,7 @@ (ert-deftest fns-tests-compare-strings () (should-error (compare-strings)) (should-error (compare-strings "xyzzy" "xyzzy")) - (should-error (compare-strings "xyzzy" 0 10 "zyxxy" 0 5)) + (should (= (compare-strings "xyzzy" 0 10 "zyxxy" 0 5) -1)) (should-error (compare-strings "xyzzy" 0 5 "zyxxy" -1 2)) (should-error (compare-strings "xyzzy" 'foo nil "zyxxy" 0 1)) (should-error (compare-strings "xyzzy" 0 'foo "zyxxy" 2 3))